--- a/SoundStream.st	Sat Jan 08 17:22:07 1994 +0100
+++ b/SoundStream.st	Sat Jan 08 17:23:49 1994 +0100
@@ -12,7 +12,7 @@
 
 FileStream subclass:#SoundStream
          instanceVariableNames:'sampleRate numberOfChannels bitsPerSample'
-         classVariableNames:'rampOff'
+         classVariableNames:'RampOff'
          poolDictionaries:''
          category:'Streams-External'
 !
@@ -23,7 +23,7 @@
 sun audio device. On iris default setup is 8 bit mono
 so I can play the standard sound files I have here.
 
-$Header: /cvs/stx/stx/libbasic2/SoundStream.st,v 1.5 1993-11-08 02:32:09 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/SoundStream.st,v 1.6 1994-01-08 16:23:49 claus Exp $
 '!
 
 %{
@@ -48,7 +48,7 @@
 
     OperatingSystem getCPUType = '386' ifTrue:[
         "soundblaster special kludge to avoid click"
-        rampOff isNil ifTrue:[
+        RampOff isNil ifTrue:[
             self generateRamp
         ]
     ].
@@ -385,9 +385,9 @@
 
     size := 256.
     div := size // 128.
-    rampOff := ByteArray new:size.
+    RampOff := ByteArray new:size.
     1 to:size do:[:index |
-       rampOff at:index put:(size - index // div)
+       RampOff at:index put:(size - index // div)
     ]
 
     "SoundStream generateRamp"
@@ -586,7 +586,7 @@
 
             "OperatingSystem sleep:3.      "
             "add a ramp to zero to prevent click-off"
-            super nextPutBytes:(rampOff size) from:rampOff
+            super nextPutBytes:(RampOff size) from:RampOff
         ]
     ].    
     super close