--- a/MessageNd.st	Thu Jun 26 12:48:51 1997 +0200
+++ b/MessageNd.st	Thu Jun 26 13:22:48 1997 +0200
@@ -832,9 +832,12 @@
             ].
 
             (selector == #timesRepeat:) ifTrue:[
-                (receiver isConstant and:[receiver evaluate isNumber]) ifTrue:[
+                "/ now, always inline #timesRepeat:;
+                "/ the receiver must understand #> and #-
+                
+"/                (receiver isConstant and:[receiver evaluate isNumber]) ifTrue:[
                     ^ self codeTimesRepeatOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler.
-                ]
+"/                ]
             ].
 
             ((selector == #whileTrue:) or:[selector == #whileFalse:]) ifTrue:[
@@ -1045,7 +1048,7 @@
     ].
 
     "Modified: 3.9.1995 / 12:55:42 / claus"
-    "Modified: 26.6.1997 / 10:59:49 / cg"
+    "Modified: 26.6.1997 / 13:22:08 / cg"
 !
 
 codeOrIfElseOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler
@@ -1926,5 +1929,5 @@
 !MessageNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/MessageNd.st,v 1.72 1997-06-26 09:04:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/MessageNd.st,v 1.73 1997-06-26 11:22:48 cg Exp $'
 ! !

--- a/MessageNode.st	Thu Jun 26 12:48:51 1997 +0200
+++ b/MessageNode.st	Thu Jun 26 13:22:48 1997 +0200
@@ -832,9 +832,12 @@
             ].
 
             (selector == #timesRepeat:) ifTrue:[
-                (receiver isConstant and:[receiver evaluate isNumber]) ifTrue:[
+                "/ now, always inline #timesRepeat:;
+                "/ the receiver must understand #> and #-
+                
+"/                (receiver isConstant and:[receiver evaluate isNumber]) ifTrue:[
                     ^ self codeTimesRepeatOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler.
-                ]
+"/                ]
             ].
 
             ((selector == #whileTrue:) or:[selector == #whileFalse:]) ifTrue:[
@@ -1045,7 +1048,7 @@
     ].
 
     "Modified: 3.9.1995 / 12:55:42 / claus"
-    "Modified: 26.6.1997 / 10:59:49 / cg"
+    "Modified: 26.6.1997 / 13:22:08 / cg"
 !
 
 codeOrIfElseOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler
@@ -1926,5 +1929,5 @@
 !MessageNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.72 1997-06-26 09:04:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.73 1997-06-26 11:22:48 cg Exp $'
 ! !