1 files changed, 6 insertions, 1 deletions
diff --git a/cyclone/hammer/hammer.c b/cyclone/hammer/hammer.c
index 3c4f3c2..ea4642c 100644
--- a/cyclone/hammer/hammer.c
+++ b/cyclone/hammer/hammer.c
@@ -1,4 +1,4 @@
-/* Copyright (c) 2002-2003 krzYszcz and others.
+/* Copyright (c) 2002-2004 krzYszcz and others.
  * For information on usage and redistribution, and for a DISCLAIMER OF ALL
  * WARRANTIES, see the file, "LICENSE.txt," in this distribution.  */
 
@@ -76,6 +76,11 @@ void hammer_setup(void)
 	loud_errand(0, "without having hammer library preloaded");
 	return;
     }
+    if (zgetfn(&pd_objectmaker, gensym("hammer")))
+    {
+	loud_error(0, "hammer is already loaded");
+	return;
+    }
     if (!zgetfn(&pd_objectmaker, gensym("cyclone")))
 	post("this is hammer %s, %s %s build",
 	     CYCLONE_VERSION, loud_ordinal(CYCLONE_BUILD), CYCLONE_RELEASE);