diff --git a/src/clostridium/core.clj b/src/clostridium/core.clj
index 08da2e4..6cb2668 100644
--- a/src/clostridium/core.clj
+++ b/src/clostridium/core.clj
@@ -423,9 +423,9 @@
       \r reflect
       \s (fn [nb]
           (let [
-                {:keys [b item]} (removeFromStack (updatePC nb))
+                {:keys [b item]} (removeFromStack (updatePC nb true))
                 ]
-            (assoc b :grid (setVal (:grid b) (:pc b) (char item)))
+            (assoc b :grid (setVal (:grid b) (reverse (:pc b)) (char item)))
           )
         )
       \z (fn [b] b)