diff --git a/module/language/tree-il/compile-bytecode.scm b/module/language/tree-il/compile-bytecode.scm
index c495d2ae6..551ae68e9 100644
--- a/module/language/tree-il/compile-bytecode.scm
+++ b/module/language/tree-il/compile-bytecode.scm
@@ -459,10 +459,10 @@
                     v)))
 
        ;; Transform "ash" to lsh / rsh.
-       (($ <primcall> src 'ash (x ($ <const> src (? exact-integer? y))))
+       (($ <primcall> src 'ash (x ($ <const> src* (? exact-integer? y))))
         (if (negative? y)
-            (make-primcall src 'lsh (list x (make-const src (- y))))
-            (make-primcall src 'rsh (list x (make-const src y)))))
+            (make-primcall src 'lsh (list x (make-const src* (- y))))
+            (make-primcall src 'rsh (list x (make-const src* y)))))
 
        ;; (throw key subr msg (list x) (list x))
        (($ <primcall> src 'throw