--- a/Launcher.st	Sat Apr 25 18:25:04 1998 +0200
+++ b/Launcher.st	Sat Apr 25 18:33:46 1998 +0200
@@ -7156,14 +7156,16 @@
     resources := requestor class classResources.
 
     exampleText := 'methodSelector:methodArg
-    "method comment"
+    "method comment:
+     some stupid code to show the current settings"
 
     |methodVar|
 
+    "/ another comment ...
     self foo:methodArg.
     self bar:methodVar.
-    Transcript bar.
-    UnknownGlobal baz.
+    "self bar:methodVar.  detect commented code easily"
+    Transcript baz:(self baz + 1) negated.
 '.
 
     coloredText := '' asValue.
@@ -7243,5 +7245,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.328 1998-04-25 16:15:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.329 1998-04-25 16:33:46 cg Exp $'
 ! !