diff --git a/M2/Macaulay2/d/hashtables.dd b/M2/Macaulay2/d/hashtables.dd
index f8f4763578..ca3018f8be 100644
--- a/M2/Macaulay2/d/hashtables.dd
+++ b/M2/Macaulay2/d/hashtables.dd
@@ -318,10 +318,11 @@ lookup(object:HashTable, key:Expr):Expr; -- forward declaration
 KeyNotFound(object:string, key:Expr):Expr := (
     -- TODO: implement a similar trick to call synonym(object)
     msg := "key not found in " + object;
-    see := lookup(Class(key), RobustPrintE);
-    if see != notfoundE then
-    when applyEEEpointer(see, toExpr(msg), key)
-    is str:stringCell do msg = str.v else nothing;
+    if !SuppressErrors then (
+	see := lookup(Class(key), RobustPrintE);
+	if see != notfoundE then
+	when applyEEEpointer(see, toExpr(msg), key)
+	is str:stringCell do msg = str.v else nothing);
     buildErrorPacket(msg));
 
 export lookup1(object:HashTable,key:Expr,keyhash:hash_t):Expr := (