diff --git a/scheme/last-revision b/scheme/last-revision
index 4342bca..0c9a077 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1321
+1322
diff --git a/scheme/test64.ss b/scheme/test64.ss
index ff9200e..80337fd 100755
--- a/scheme/test64.ss
+++ b/scheme/test64.ss
@@ -54,7 +54,7 @@
   (or (number? x) (char? x) (boolean? x) (null? x) (string? x)))
 
 (define (primitive? x)
-  (memq x '($fxadd1 $fixnum->char $char->fixnum fixnum? $fxzero?
+  (memq x '($fxadd1 $fxsub1 $fixnum->char $char->fixnum fixnum? $fxzero?
             null? boolean? char? not $fxlognot)))
 
 (define (fixup x)
@@ -63,6 +63,8 @@
     [(,prim ,[args] ...) 
      (guard (primitive? prim))
      `((primitive ,prim) ,args ...)]
+    [(if ,[e0] ,[e1] ,[e2]) 
+     `(if ,e0 ,e1 ,e2)]
     [,_ (error 'fixup "invalid expression" _)]))
 
 (define-syntax add-tests-with-string-output 
@@ -78,6 +80,7 @@
 (include "tests/tests-1.1-req.scm")
 (include "tests/tests-1.2-req.scm")
 (include "tests/tests-1.3-req.scm")
+(include "tests/tests-1.4-req.scm")
 
 (test-all)
 (printf "Passed ~s tests\n" (length all-tests))