===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/hol.sm1,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -p -r1.26 -r1.27
--- OpenXM/src/kan96xx/Doc/hol.sm1	2008/01/18 00:48:07	1.26
+++ OpenXM/src/kan96xx/Doc/hol.sm1	2012/09/16 01:53:08	1.27
@@ -1,4 +1,4 @@
-% $OpenXM: OpenXM/src/kan96xx/Doc/hol.sm1,v 1.25 2005/07/24 09:02:40 takayama Exp $
+% $OpenXM: OpenXM/src/kan96xx/Doc/hol.sm1,v 1.26 2008/01/18 00:48:07 takayama Exp $
 %% hol.sm1, 1998, 11/8, 11/10, 11/14, 11/25, 1999, 5/18, 6/5. 2000, 6/8
 %% rank, rrank, characteristic
 %% This file is error clean.
@@ -960,7 +960,11 @@ message-quiet
        ggall 0 gtmp put
     }{  } ifelse
 
-    gg getRing (oxRingStructure) dc /gb.oxRingStructure set
+    gg length 0 eq {  % there is no syzygy
+       ggall getRing (oxRingStructure) dc /gb.oxRingStructure set
+    }{
+     gg getRing (oxRingStructure) dc /gb.oxRingStructure set
+    } ifelse
 
     /arg1 [gg dehomogenize ggall] def
   ] pop