1 files changed, 1 insertions, 1 deletions
diff --git a/gencadr.txr b/gencadr.txr
index fea5b7a0..2e242653 100644
--- a/gencadr.txr
+++ b/gencadr.txr
@@ -46,7 +46,7 @@ static val cadr_register(val set_fun)
 @  (repeat)
   reg_fun(intern(lit("c@{ad}r"), user_package), func_n1(c@{ad}r));
 @  (end)
-  load(format(nil, lit("~acadr"), stdlib_path, nao));
+  load(scat2(stdlib_path, lit("cadr")));
   return nil;
 }