diff --git a/src/ikarus.boot b/src/ikarus.boot
index d390120..212f4bb 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/pass-specify-rep-primops.ss b/src/pass-specify-rep-primops.ss
index 396c5e0..736dc35 100644
--- a/src/pass-specify-rep-primops.ss
+++ b/src/pass-specify-rep-primops.ss
@@ -32,8 +32,8 @@
 (define (dirty-vector-set address)
   (prm 'mset 
      (prm 'int+
-          (prm 'mref pcr (K 28)) ;;; FIXME: make srl
-          (prm 'sll (prm 'sra address (K pageshift)) (K wordshift)))
+          (prm 'mref pcr (K 28)) 
+          (prm 'sll (prm 'srl address (K pageshift)) (K wordshift)))
      (K 0)
      (K dirty-word)))