--- a/Smalltalk.st	Thu Apr 24 21:20:04 1997 +0200
+++ b/Smalltalk.st	Sat Apr 26 15:07:23 1997 +0200
@@ -1024,7 +1024,7 @@
     CachedClasses do:aBlock
 
     "
-     Smalltalk allBehaviorsDo:[:aClass | aClass name printNL]
+     Smalltalk allBehaviorsDo:[:aClass | aClass name printCR]
     "
 !
 
@@ -1035,7 +1035,7 @@
     ^ self allBehaviorsDo:aBlock
 
     "
-     Smalltalk allClassesDo:[:aClass | aClass name printNL]
+     Smalltalk allClassesDo:[:aClass | aClass name printCR]
     "
 !
 
@@ -1073,7 +1073,7 @@
     ]
 
     "
-     Smalltalk allClassesInCategory:'Views-Basic' do:[:aClass | aClass name printNL]
+     Smalltalk allClassesInCategory:'Views-Basic' do:[:aClass | aClass name printCR]
     "
 !
 
@@ -1097,7 +1097,7 @@
     ]
 
     "
-     Smalltalk allClassesInCategory:'Views-Basic' inOrderDo:[:aClass | aClass name printNL]
+     Smalltalk allClassesInCategory:'Views-Basic' inOrderDo:[:aClass | aClass name printCR]
     "
 !
 
@@ -1115,7 +1115,7 @@
         aBlock value:(aKey -> (self at:aKey))
     ]
 
-    "Smalltalk associationsDo:[:assoc | assoc printNL]"
+    "Smalltalk associationsDo:[:assoc | assoc printCR]"
 !
 
 do:aBlock
@@ -1691,12 +1691,16 @@
     Stdin atEnd ifFalse:[
         text := Stdin nextChunk.
         [text notNil] whileTrue:[
-            (Compiler evaluate:text) printNL.
+	    AbortSignal handle:[:ex |
+		'evaluation aborted' printCR
+	    ] do:[
+                (Compiler evaluate:text) printCR.
+	    ].
             'ST- ' print.
             text := Stdin nextChunk
         ].
     ].
-    '' printNL
+    '' printCR
 !
 
 restart
@@ -2218,7 +2222,7 @@
 
     table keysAndValuesDo:[:aMethod :pos |
         aMethod localSourceFilename:fileName position:pos.
-"/        aMethod printNL.
+"/        aMethod printCR.
     ].
 
     "
@@ -2575,7 +2579,7 @@
                                 cat := 'autoloaded'
                             ].
 
-                            "/ '  autoloaded: ' print. clsName print. ' in ' print. cat printNL.
+                            "/ '  autoloaded: ' print. clsName print. ' in ' print. cat printCR.
 
                             "/ install if not already compiled-in
                             Autoload subclass:clsName
@@ -3652,5 +3656,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.236 1997-04-21 11:56:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.237 1997-04-26 13:07:23 cg Exp $'
 ! !