--- a/ReadEvalPrintLoop.st	Tue Nov 08 17:24:52 2016 +0100
+++ b/ReadEvalPrintLoop.st	Tue Nov 08 17:26:31 2016 +0100
@@ -442,7 +442,7 @@
             ok := true.
         ].
         
-        (showAll or:[ what startsWith:'pack' ]) ifTrue:[                    
+        ("showAll or:[" what startsWith:'pack' "]") ifTrue:[                    
             showAll ifTrue:[ errStream cr; nextPutLine:'Packages:'; nextPutLine:'--------' ].
             self showPackages.
             ok := true.