2007-09-02  Stephen Compall <address@hidden>

	* packages/stinst/parser/STCompiler.st: Jump past true bytes
	after ifFalse: branch in #ifFalse:ifTrue:, not false bytes.

	* NEWS: Fix #join example.


--- orig/NEWS
+++ mod/NEWS
@@ -98,7 +98,7 @@
     Another methods meant to be used with the { ... } syntax is #join.
     For example
 
-        { 'hello'. a. '!' }
+        { 'hello'. a. '!' } join
 
     returns a string and is the same as using #, repeatedly, but is more
     efficient.


--- orig/packages/stinst/parser/STCompiler.st
+++ mod/packages/stinst/parser/STCompiler.st
@@ -854,7 +854,7 @@
     self compileJump: falseSize if: true.
     self nextPutAll: bcFalse.
     bcFalseReturns ifFalse: [
-	self compileByte: Jump arg: bcFalse size.
+	self compileByte: Jump arg: bcTrue size.
     ].
     self nextPutAll: bcTrue.
     ^true