diff --git a/obj/tools/lupe.c b/obj/tools/lupe.c
index 105b602..94da478 100644
--- a/obj/tools/lupe.c
+++ b/obj/tools/lupe.c
@@ -697,7 +697,7 @@
   if (intp(ob))
     return ""+ob;
   if (stringp(ob))
-    return string_desc((string)ob);
+    return string_desc(ob);
   if (objectp(ob))
     return "OBJ("+object_name(ob)+")";
   if (!pointerp(ob))