diff --git a/src/llogo/error.224 b/src/llogo/error.224
index 55644a06..002e9c03 100644
--- a/src/llogo/error.224
+++ b/src/llogo/error.224
@@ -425,7 +425,7 @@
 ;;*PAGE
 
 
-(SSTATUS INTERRUPT 16. 'TOGGLE-WORLD) 
+(SSTATUS TTYINT #^^ 'TOGGLE-WORLD) 
 
 (DEFUN TOGGLE-WORLD (IGNORE) 
        ;;^^ SWITCHES BACK AND FORTH BETWEEN LOGO AND LISP.
@@ -439,7 +439,7 @@
 		[ITS (DO I (LISTEN) (1- I) (= I 0.) (TYI))]
 		(LISP)))) 
 
-(SSTATUS INTERR 1. 'CONTROL-H-BREAK) 
+(SSTATUS TTYINT #^H 'CONTROL-H-BREAK) 
 
 (DEFUN CONTROL-H-BREAK (^H) 
        ;;^H ENTERS A LISP BREAK FROM EITHER LOGO OR LISP.
@@ -451,7 +451,7 @@
 		    (EXPR-FUNCTION DPRINC)
 		    'LISP-BREAK-LOOP)) 
 
-(SSTATUS INTERRUPT 2. 'CONTROL-A-BREAK) 
+(SSTATUS TTYINT #^A 'CONTROL-A-BREAK) 
 
 (DEFUN CONTROL-A-BREAK (USELESS) 
        ;;CONTROL-A ENTERS A LOGO BREAK.
@@ -579,7 +579,7 @@
        (LISP-ERROR (LIST (CAR ERRS)
 			 '"IS AN UNDEFINED PROCEDURE"))) 
 
-(SSTATUS INTERRUPT 5. 'UNDF-FNCTN) 
+(SETQ UNDF-FNCTN 'UNDF-FNCTN) 
 
 (DEFUN WRNG-TYPE-ARG (ERRS) 
        (LET
@@ -597,7 +597,7 @@
 		      UNHAPPY-FUNCTION
 		      '"IS OF THE WRONG TYPE")))))) 
 
-(SSTATUS INTERRUPT 7. 'WRNG-TYPE-ARG) 
+(SETQ WRNG-TYPE-ARG 'WRNG-TYPE-ARG) 
 
 (DEFUN UNSEEN-GO-TAG (ERRS) 
        (LISP-ERROR
@@ -606,7 +606,7 @@
 	  '"YOU TRIED TO USE A BREAKPOINT FUNCTION BUT YOU'RE NOT IN A BREAKPOINT")
 	 ((LIST (CAR ERRS) '"IS AN UNDEFINED TAG"))))) 
 
-(SSTATUS INTERRUPT 8. 'UNSEEN-GO-TAG) 
+(SETQ UNSEEN-GO-TAG 'UNSEEN-GO-TAG) 
 
 (DEFUN ERRORFRAME NIL (AND (ERRFRAME NIL) (CADR (ERRFRAME NIL)))) 
 
@@ -701,11 +701,11 @@
 		  ((LIST '"WRONG NUMBER OF INPUTS TO "
 			 (UNPARSE-FUNCTION-NAME CULPRIT)))))) 
 
-(SSTATUS INTERRUPT 9. 'WRONG-NO-ARGS) 
+(SETQ WRNG-NO-ARGS 'WRONG-NO-ARGS) 
 
 (*RSET T) 
 
-(SSTATUS INTERRUPT 18. 'FASLOADER) 
+(SETQ AUTOLOAD 'FASLOADER)
 
 (DEFUN FASLOADER (FILE) 
        ;;REDEFINE AUTOMATIC FASLOADER FOR TRACE, GRIND, LAP, ETC.  TO FASLOAD STUFF
@@ -725,7 +725,7 @@
 	    (APPLY 'CRUNIT CRUNIT)
 	    (APPLY 'SSTATUS (CONS 'CRFILE CRFILE)))) 
 
-(SSTATUS INTERRUPT 19. NIL) 
+(SETQ *RSET-TRAP NIL) 
 
 ;;RSET BREAK TURNED OFF.  HENCE, EXECUTING (LISP) WILL NOT RESULT IN BREAK.  RSET
 ;;SERVICES ERRORS THAT REACH THE TOPLEVEL.