--- a/ButtonC.st	Wed Mar 19 22:24:31 1997 +0100
+++ b/ButtonC.st	Thu Mar 20 21:58:30 1997 +0100
@@ -151,9 +151,10 @@
     "turn on/off autorepeat"
 
     autoRepeat := aBoolean.
-    repeatBlock := [self repeat]
+    repeatBlock := MessageSend receiver:self selector:#repeat. "/ [self repeat]
 
     "Modified: 5.9.1995 / 22:06:00 / claus"
+    "Modified: 20.3.1997 / 21:56:13 / cg"
 !
 
 beButton
@@ -648,5 +649,5 @@
 !ButtonController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ButtonC.st,v 1.43 1997-03-07 23:04:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ButtonC.st,v 1.44 1997-03-20 20:58:30 cg Exp $'
 ! !