diff --git a/obj/tools/lupe.c b/obj/tools/lupe.c
index 5d6f109..b3734fb 100644
--- a/obj/tools/lupe.c
+++ b/obj/tools/lupe.c
@@ -155,11 +155,11 @@
 	printf("Error when loading profile: %O\n",pfile);
 }
 
-void init()
+varargs void init(object origin)
 {
   int i,ch;
   
-  ::init();
+  ::init(origin);
   if (environment()!=this_player()) return;
 //  if (!IS_LEARNER(this_player())) return;
   if (!IS_LEARNER(this_player())) return destruct(this_object());