make has become so slooooow…

models.pl

@@ -504,11 +504,15 @@ print_item(Id) :-
 
 % make it so that print/1 does not quote things that look like a variable
 user:portray(Thing) :-
-  with_output_to(atom(Atom), write(Thing)),
-  read_term_from_atom(Atom, Term, []),
-  var(Term),
+  atom(Thing),
+  catch(
+    read_term_from_atom(Thing, Term, []),
+    _,
+    fail
+  ),
+  \+ compound(Term),
   !,
-  write(Atom).
+  write(Thing).
 
 :- dynamic(deleting/1).