--- a/Block.st	Tue Sep 28 20:29:19 2004 +0200
+++ b/Block.st	Wed Sep 29 11:20:20 2004 +0200
@@ -1343,7 +1343,7 @@
      |n|
 
      n := 1.
-     [n printNewline] doUntil:[ (n := n + 1) > 5 ]
+     [n printCR] doUntil:[ (n := n + 1) > 5 ]
     "
 !
 
@@ -1361,7 +1361,7 @@
      |n|
 
      n := 1.
-     [n printNewline] doWhile:[ (n := n + 1) <= 5 ]
+     [n printCR] doWhile:[ (n := n + 1) <= 5 ]
     "
 !
 
@@ -1378,9 +1378,9 @@
 
      n := 1.
      [
-	n printNewline.
-	n >= 10 ifTrue:[^ nil].
-	n := n + 1
+        n printCR.
+        n >= 10 ifTrue:[^ nil].
+        n := n + 1
      ] loop
     "
 
@@ -1470,7 +1470,7 @@
      |n|
 
      n := 1.
-     [n printNewline. (n := n + 1) > 10] whileFalse
+     [n printCR. (n := n + 1) > 10] whileFalse
     "
 !
 
@@ -1490,8 +1490,8 @@
 
      n := 1.
      [n > 10] whileFalse:[
-	n printNewline.
-	n := n + 1
+        n printCR.
+        n := n + 1
      ]
     "
 !
@@ -1508,7 +1508,7 @@
      |n|
 
      n := 1.
-     [n printNewline. (n := n + 1) <= 10] whileTrue
+     [n printCR. (n := n + 1) <= 10] whileTrue
     "
 !
 
@@ -1528,8 +1528,8 @@
 
      n := 1.
      [n <= 10] whileTrue:[
-	n printNewline.
-	n := n + 1
+        n printCR.
+        n := n + 1
      ]
     "
 ! !
@@ -2072,7 +2072,7 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.139 2004-07-13 07:35:18 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.140 2004-09-29 09:20:20 cg Exp $'
 ! !
 
 Block initialize!