--- a/SoundStream.st	Sun Mar 02 19:40:27 2003 +0100
+++ b/SoundStream.st	Sun Mar 02 19:43:32 2003 +0100
@@ -739,10 +739,10 @@
     |inStream soundStream count totalCount buffer startTime playTime delayedTime waitTime|
 
     inStream := aFilename asFilename readStream.
-    inStream isNil ifTrue:[^ self].
+    inStream isNil ifTrue:[self error:'cannot open'].
 
     soundStream := self writing.
-    soundStream isNil ifTrue:[^ self].
+    soundStream isNil ifTrue:[self error:'cannot open sound device'].
     soundStream buffered:false.
 
     startTime := AbsoluteTime now.
@@ -2702,7 +2702,7 @@
 !SoundStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SoundStream.st,v 1.59 2003-02-25 13:23:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SoundStream.st,v 1.60 2003-03-02 18:43:32 stefan Exp $'
 ! !
 
 SoundStream initialize!