1 files changed, 1 insertions, 1 deletions
diff --git a/cadr.c b/cadr.c
index 9e3ce2a2..0f474a55 100644
--- a/cadr.c
+++ b/cadr.c
@@ -402,7 +402,7 @@ static val cadr_register(val set_fun)
   reg_fun(intern(lit("cdddadr"), user_package), func_n1(cdddadr));
   reg_fun(intern(lit("cddddar"), user_package), func_n1(cddddar));
   reg_fun(intern(lit("cdddddr"), user_package), func_n1(cdddddr));
-  load(format(nil, lit("~acadr"), stdlib_path, nao));
+  load(scat2(stdlib_path, lit("cadr")));
   return nil;
 }