Index: /branches/objc-gf/ccl/level-0/nfasload.lisp
===================================================================
--- /branches/objc-gf/ccl/level-0/nfasload.lisp	(revision 6046)
+++ /branches/objc-gf/ccl/level-0/nfasload.lisp	(revision 6047)
@@ -477,5 +477,5 @@
 
 (deffaslop $fasl-timm (s)
-  (rlet ((p :long))
+  (rlet ((p :int))
     (setf (%get-long p) (%fasl-read-long s))
     (%epushval s (%get-unboxed-ptr p))))