diff --git a/compiler/rt/system.lisp b/compiler/rt/system.lisp
index b3f3166b13cacf4680a0435906fa320c151c4451..670e856745e8ab97685d1ca46bd3d2054393b5c5 100644
--- a/compiler/rt/system.lisp
+++ b/compiler/rt/system.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/system.lisp,v 1.1 1991/02/18 15:08:18 chiles Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/system.lisp,v 1.2 1991/04/21 19:55:59 wlott Exp $
 ;;;
 ;;; IBM RT VM definitions of various system hacking operations.
 ;;;
@@ -106,7 +106,7 @@
       (inst nilz result object type-mask)
 
       (emit-label function-ptr)
-      (load-type result object (- function-pointer-type))
+      (load-type result object function-pointer-type)
       (inst b done)
 
       (emit-label lowtag-only)
@@ -114,7 +114,7 @@
       (inst nilz result object lowtag-mask)
 
       (emit-label other-ptr)
-      (load-type result object (- other-pointer-type))
+      (load-type result object other-pointer-type)
       
       (emit-label done))))
 
@@ -184,7 +184,7 @@
     (move temp ptr)
     (inst sl temp 3)
     (inst sr temp 1)
-    (move temp res)))
+    (move res temp)))
 
 (define-vop (make-other-immediate-type)
   (:args (val :scs (any-reg descriptor-reg) :target vtemp)