===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/plugin/sm1Socket.hh,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- OpenXM/src/kan96xx/plugin/sm1Socket.hh	2000/01/16 07:55:48	1.2
+++ OpenXM/src/kan96xx/plugin/sm1Socket.hh	2000/02/24 12:33:48	1.3
@@ -1,8 +1,9 @@
-/* $OpenXM$ */
+/* $OpenXM: OpenXM/src/kan96xx/plugin/sm1Socket.hh,v 1.2 2000/01/16 07:55:48 takayama Exp $ */
   else if (strcmp(key,"sm1.socket") == 0) {
     if (size != 3)  {
       errorKan1("%s\n","[(sm1.socket) (key for sm1.socket) [ args ]] extension");
     }
+	if (SecureMode) errorKan1("%s\n","Security violation for sm1.socket.");
     obj1 = getoa(obj,1);
     obj2 = getoa(obj,2);
     if (obj1.tag != Sdollar) {