--- a/HorizontalSteppingSlider.st	Sat May 18 13:09:56 1996 +0200
+++ b/HorizontalSteppingSlider.st	Sat May 18 17:43:43 1996 +0200
@@ -47,7 +47,7 @@
     top := StandardSystemView extent:200@200.
     sl := HorizontalSteppingSlider in:top.
     sl origin:(0.0@0.0) corner:(1.0@sl height).
-    sl scrollAction:[:pos | Transcript showCr:pos].    
+    sl scrollAction:[:pos | Transcript showCR:pos].    
     top open
 "
 ! !
@@ -138,5 +138,5 @@
 !HorizontalSteppingSlider class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSteppingSlider.st,v 1.7 1996-02-07 14:19:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSteppingSlider.st,v 1.8 1996-05-18 15:43:18 cg Exp $'
 ! !