diff -rupN portableaserve-20121125-cvs/acl-compat/mcl/acl-excl.lisp portableaserve-20121125-cvs-ccl-fixnum-fix/acl-compat/mcl/acl-excl.lisp
--- portableaserve-20121125-cvs/acl-compat/mcl/acl-excl.lisp	2012-12-18 16:40:22.000000000 -0500
+++ portableaserve-20121125-cvs-ccl-fixnum-fix/acl-compat/mcl/acl-excl.lisp	2012-12-19 15:48:13.000000000 -0500
@@ -11,8 +11,8 @@
 ;(defun fixnump (x)
 ;  (ccl::fixnump x))
 
-#-openmcl
-(import 'ccl::fixnump)
+;;#-openmcl
+;;(import 'ccl::fixnump)
 
 #+openmcl
 (defun filesys-inode (path)
diff -rupN portableaserve-20121125-cvs/acl-compat/packages.lisp portableaserve-20121125-cvs-ccl-fixnum-fix/acl-compat/packages.lisp
--- portableaserve-20121125-cvs/acl-compat/packages.lisp	2012-12-18 16:40:22.000000000 -0500
+++ portableaserve-20121125-cvs-ccl-fixnum-fix/acl-compat/packages.lisp	2012-12-19 15:48:13.000000000 -0500
@@ -30,6 +30,8 @@
   #+cmu (:import-from :ext #:without-package-locks)
   #+allegro (:shadowing-import-from :excl #:filesys-size
 	    #:filesys-write-date #:intern* #:filesys-type #:atomically #:fast)
+  #+(or mcl openmcl) (:shadowing-import-from :ccl #:fixnump)
+
   (:export
    #:if*
    #:*initial-terminal-io*