--- a/SoundStream.st	Wed Apr 16 15:12:07 2014 +0200
+++ b/SoundStream.st	Thu Apr 17 00:06:41 2014 +0200
@@ -782,8 +782,8 @@
 
     buffer := ByteArray new:4096.
     [(count := inStream nextBytesInto:buffer) > 0] whileTrue:[
-	totalCount := totalCount + count.
-	soundStream nextPutBytes:count from:buffer.
+        totalCount := totalCount + count.
+        soundStream nextPutBytes:count from:buffer.
     ].
 
     inStream close.
@@ -793,7 +793,7 @@
     "/ at least the linux audio driver behaves funny, if we close too early ...
     "/
     playTime := totalCount / soundStream sampleRate.
-    delayedTime := (Timestamp now getSeconds - startTime getSeconds).
+    delayedTime := Timestamp now secondDeltaFrom: startTime.
     waitTime := playTime - delayedTime + 0.1.
 
     (Delay forSeconds:waitTime) wait.
@@ -2705,11 +2705,11 @@
 !SoundStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SoundStream.st,v 1.79 2014-04-03 13:21:31 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SoundStream.st,v 1.80 2014-04-16 22:06:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/SoundStream.st,v 1.79 2014-04-03 13:21:31 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SoundStream.st,v 1.80 2014-04-16 22:06:41 cg Exp $'
 ! !