--- a/Tools__ProjectBuilderAssistantApplication.st	Wed Mar 06 10:01:55 2013 +0100
+++ b/Tools__ProjectBuilderAssistantApplication.st	Wed Mar 06 10:01:59 2013 +0100
@@ -1715,7 +1715,7 @@
     <resource: #uiCallback>
 
     Transcript showCR:self class name, ': action for doAddClassToProject ...'.
-    self halt.
+    self halt:'unimplemented'.
 !
 
 doBrowseApplication
@@ -3039,7 +3039,7 @@
             projectType = ProjectDefinition nonGuiApplicationType ifTrue:[
                 query := #isConsoleApplication
             ] ifFalse:[
-                self halt:'oops'.
+                self halt:'oops - unknown projectType'.
                 projectType := ProjectDefinition guiApplicationType.
             ].
         ].