diff --git a/object.c b/object.c
index 0a00816..5db6004 100644
--- a/object.c
+++ b/object.c
@@ -188,7 +188,7 @@ oop _checkType(oop ptr, type_t type, char *file, int line)
 {
     assert(ptr);
     if (getType(ptr) != type) {
-        fprintf(stderr, "\n%s:%i: expected %i got %i\n", file, line, type, ptr->type);
+        fprintf(stderr, "\n%s:%i: expected %i got %i\n", file, line, type, getType(ptr));
     }
     assert(getType(ptr) == type);
     return ptr;
diff --git a/parse.leg b/parse.leg
index b0964de..679d920 100644
--- a/parse.leg
+++ b/parse.leg
@@ -937,7 +937,6 @@ oop clone(oop obj)
         case Function: {
             oop fun= malloc(sizeof(*obj));
             memcpy(fun, obj, sizeof(*obj));
-            // shall we deepclone?
             return fun;
         }
     }
@@ -1999,9 +1998,6 @@ oop prim_Symbol(oop scope, oop params)
                 char c= getInteger(get(params, Map, elements)[1].value);
                 return makeSymbolFromChar(c, repeat);
             }
-            // ???????????????????????????
-            //char *ok= get(arg, String, value);
-            //printf("%s\n", ok);
             break;
         }
         case String: {