ui.tools.operations: fix crash clicking on a model that hasn't been initialized properly.

basis/ui/tools/operations/operations.factor

@@ -1,16 +1,14 @@
 ! Copyright (C) 2006, 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: continuations definitions generic help.topics threads
+USING: accessors combinators.short-circuit compiler.errors
-stack-checker summary io.pathnames io.styles kernel namespaces
+compiler.units continuations definitions destructors editors
-parser prettyprint quotations tools.crossref tools.annotations
+help.topics io.pathnames io.styles kernel libc.private
-editors tools.test tools.time tools.walker vocabs
+macros.expander models parser prettyprint quotations
-vocabs.loader words sequences classes compiler.errors
+source-files.errors stack-checker threads tools.annotations
-compiler.units accessors vocabs.parser macros.expander ui
+tools.crossref tools.test tools.time tools.walker ui.commands
-ui.tools.browser ui.tools.listener ui.tools.listener.completion
+ui.gestures ui.operations ui.tools.browser ui.tools.deploy
-ui.tools.inspector ui.tools.traceback
+ui.tools.inspector ui.tools.listener ui.tools.traceback vocabs
-ui.commands ui.gadgets.editors ui.gestures ui.operations
+vocabs.loader vocabs.parser words ;
-ui.tools.deploy models help.tips source-files.errors destructors
-libc libc.private ;
 IN: ui.tools.operations
 
 ! Objects
@@ -35,7 +33,7 @@ IN: ui.tools.operations
 [ drop t ] \ com-unparse H{ } define-operation
 
 ! Models
-[ model? ] \ inspect-model H{
+[ { [ model? ] [ ref>> ] } 1&& ] \ inspect-model H{
     { +primary+ t }
 } define-operation