Index: Singular/LIB/standard.lib
===================================================================
--- Singular/LIB/standard.lib	(revision 0174985120b895aacfa8d871adb049e962dc303e)
+++ Singular/LIB/standard.lib	(revision a58a2020e02850b2395c30393941f74b1fadf65d)
@@ -900,25 +900,34 @@
   }
 // ------------------check for HC-- ---------------------------------------
-if (attrib(P,"global")==0)
-{
-  if ((method=="HC")&&(typeof(i)=="ideal"))
-  {
-    if (char(P)==0)
-    {
-      list L=ring_list(P);
-      L[1]=ZZ/32003;
-      ring S=ring(L);
-      ideal i=imap(P,i);
-      i=std(i);
-      if (vdim(i)!= -1)
-      {
-        poly HC=system(HC);
+  if (attrib(P,"global")==0)
+  {
+    if (find(method,"HC")&&(typeof(i)=="ideal"))
+    {
+      if (char(P)==0)
+      {
+        list L=ring_list(P);
+        L[1]=ZZ/32003;
+        if (find(method,"prot")) { "computing HC in char 32003"; }
+        if (npars(P)!=0)
+        { ideal ii=subst(i,par(1),1); }
+        else
+        { ideal ii=i; }
+        ring S=ring(L);
+        ideal ii=imap(P,ii);
+        ii=std(ii);
+        poly HC=highcorner(ii)*var(nvars(S));
+        if (find(method,"prot"))
+        { "found HC in char 32003:",HC;
+          "computing std with HC";
+        }
         setring P;
+        poly save_noether=noether;
         noether=imap(S,HC);
-        return(std(i));
-      }
-    }
-  }
-}
+        i=std(i);
+        noether=save_noether;
+        return(i);
+      }
+    }
+  }
 
 //--------------------- save data from basering ---------------------------
@@ -1258,4 +1267,9 @@
 
   option(set,opt);
+
+  ring Rt = (0,t),(x,y,z),ds;
+  poly F = y10+(t2)*x7y7+x15+x9y6+(2t)*x6y9+x6y6z3+x5y11+z21;
+  ideal I = jacob(F);
+  I=groebner(I,"HC","prot");
 }
 
Index: Tst/Manual/breakpoint.res.gz.uu
===================================================================
--- Tst/Manual/breakpoint.res.gz.uu	(revision 0174985120b895aacfa8d871adb049e962dc303e)
+++ Tst/Manual/breakpoint.res.gz.uu	(revision a58a2020e02850b2395c30393941f74b1fadf65d)
@@ -1,8 +1,8 @@
 begin 640 breakpoint.res.gz
-M'XL("!'!UUX"`V)R96%K<&]I;G0N<F5S`'7000N"0!`%X+N_XB$=5C!IM4P0
-M/$07(;K8/12'6)(UW(GZ^:U1IF"G7?;-^V"G..WS(P"9X9#OX++AH%&5F\+>
-MSDHK%E[J]">R#%5'Y?76*LV!ID=@N&2G^`CA.!:7KJ5*4V?+OU=('R6C49J0
-M1`F4QG=N8*)9QH?<QE,K_%DVF[76?ZREG%!F7$9-#3'58O6,O4':9.]]]!^^
-.&V'K"^<%/$@GQSH!````
+M'XL(""?$TF$"`V)R96%K<&]I;G0N<F5S`'70S0J"0!0%X+U/<9`6"B6-EA7"
+M+**-$&UL'XJ7&)(QG!OU^(U1_H"M9IASSP=SL_,A/0$0$L=T#Y<-!Y4JW`3V
+M=E%:L><G3GM"2A0-Y;=[K30'FIZ!X9R=["N$P]B[-C45FAI;[E\AYL@9E=*$
+M;;2#TOC-=4PTR<PA-O'8"GO+9I/6ZH^U$"/*#,LHJ2*FTEN^8K^3UO*SC_;#
+/#^/9^LQY`T#>EQ@Z`0``
 `
 end
Index: Tst/Manual/breakpoint.stat
===================================================================
--- Tst/Manual/breakpoint.stat	(revision 0174985120b895aacfa8d871adb049e962dc303e)
+++ Tst/Manual/breakpoint.stat	(revision a58a2020e02850b2395c30393941f74b1fadf65d)
@@ -1,4 +1,4 @@
-1 >> tst_memory_0 :: 1591197969:4132, 64 bit:4.1.3:x86_64-Linux:nepomuck:84424
-1 >> tst_memory_1 :: 1591197969:4132, 64 bit:4.1.3:x86_64-Linux:nepomuck:2150192
-1 >> tst_memory_2 :: 1591197969:4132, 64 bit:4.1.3:x86_64-Linux:nepomuck:2191296
-1 >> tst_timer_1 :: 1591197969:4132, 64 bit:4.1.3:x86_64-Linux:nepomuck:3
+1 >> tst_memory_0 :: 1641202727:4213, 64 bit:4.2.1:x86_64-Linux:nepomuck:83592
+1 >> tst_memory_1 :: 1641202727:4213, 64 bit:4.2.1:x86_64-Linux:nepomuck:2150192
+1 >> tst_memory_2 :: 1641202727:4213, 64 bit:4.2.1:x86_64-Linux:nepomuck:2191296
+1 >> tst_timer_1 :: 1641202727:4213, 64 bit:4.2.1:x86_64-Linux:nepomuck:2
Index: Tst/Short/bug_529.res.gz.uu
===================================================================
--- Tst/Short/bug_529.res.gz.uu	(revision 0174985120b895aacfa8d871adb049e962dc303e)
+++ Tst/Short/bug_529.res.gz.uu	(revision a58a2020e02850b2395c30393941f74b1fadf65d)
@@ -1,14 +1,14 @@
 begin 640 bug_529.res.gz
-M'XL(""^\UUX"`V)U9U\U,CDN<F5S`'U3WV^;,!!^YZ\XI7NP.T)CDBQI(E"W
-M]04IFBIE4A\00A3<R&MBB&U4U&G_^P[(@*3;$."S[\?WW?EN^_T^^`8`S(=-
-M\`5&1AMG+YY&:VM[TK@^X&$LI#"$KJUZ!=^'IW(7S]U;1_)71YO$=/93'SIY
-MYD!>&)%+\IHH2?N@\P:.C`HE#AE/&\B!^M,@QL*!0N4I'(3\K/4#.G#]2#+^
-M#`'MC)8._.PVMP[^0'%3*DD>6H35:NA/`@H4.CS&'/C5;=P>G$U/X)CE/4_S
-M0[$UO'@D(N/)'H0->Z$-7'4\V&S`@\W_RN,L%`GLJW,JBR&5Y8`*9J6$W('"
-MSR,3:I,JM:N=71U1S`HRI?;7OH3NQ(>690`>5$>T['5XV1<)!>AY<P/7UR!D
-MJGBB^<F;P=@'%T]A<%472<0"Z:S@]#PKP;-0BS=.&I%^9)%W]R.\>XG>833E
-M&S<8TQH#&TEFB<I:D-K(\+C.N@5HS#=KV(2SR,,.P-/_A9R\#VG*8L]CD^/[
-MPJ4F[FS)ZLB;4,B,5Q'62IL&4(=IJ90-32*:CNM=A'`ABU86IAFCX%7'5G11
-MW%FX_$OUI_+86^=]O+@,R3K;P2"Y_2#)_'R4W'D[G_4,EIHPNH8/UF]?C>76
+M'XL("&7#TF$"`V)U9U\U,CDN<F5S`'U3WV^;,!!^YZ\XI7NP.T)C$I8T$:C;
+M^H(4394RJ0\((0INY#4QQ'94U&G_^P[(@*3;$."S[\?WW?EN\_T^_`8`+(!U
+M^`5&1AMG)YY&*VMSTK@!X&$BI#"$KJQZA2"`I^,V\=Q;1_)71YO4=/;3`#IY
+MYD!1&E%(\IHJ2?N@7@-'1J42^YQG#>1`_6D08^Y`J8H,]D)^UOH!';A^)#E_
+MAI!V1@L'?G:;6P=_H+@Y*DD>6H3E<NA/0@H4.CS&'/C5;=P>G$U/X)CE/<^*
+M?;DQO'PD(N?I#H0-.Z$-7'4\V&S`@WE_Y7$6BH3VU3F5^9#*8D`%LU)";D'A
+MYY,)M4F5V=76K@XHYB694OMK7T)W$D#+,@0?J@-:]CJ\[(N$0O2\N8'K:Q`R
+M4SS5_.3-8!R`BZ<PN*J+)!*!=)9P>IZ5X'FDQ1LGC4@_LMB_^Q'=O<3O,)KR
+MC1N,:8V!C23S5.4M2&UD>%)GW0(TYNL5K*-9[&,'X.G_0D[>AS3'<L<34^#[
+MPJ4FKL<6=>1U)&3.JQAKI4T#J*/LJ)0-32*:CNM=C'`1BY<6IIF@X%>'5G11
+MW%JX_$OUI_+86^=]/+\,R3K;P2"Y_2#)XGR47*^=SWH&CYHPNH(/UF\<VM/%
 $U@,`````
 `
Index: Tst/Short/bug_529.stat
===================================================================
--- Tst/Short/bug_529.stat	(revision 0174985120b895aacfa8d871adb049e962dc303e)
+++ Tst/Short/bug_529.stat	(revision a58a2020e02850b2395c30393941f74b1fadf65d)
@@ -1,4 +1,4 @@
-1 >> tst_memory_0 :: 1591196719:4132, 64 bit:4.1.3:x86_64-Linux:nepomuck:217952
-1 >> tst_memory_1 :: 1591196719:4132, 64 bit:4.1.3:x86_64-Linux:nepomuck:2273280
-1 >> tst_memory_2 :: 1591196719:4132, 64 bit:4.1.3:x86_64-Linux:nepomuck:2400256
-1 >> tst_timer_1 :: 1591196719:4132, 64 bit:4.1.3:x86_64-Linux:nepomuck:6
+1 >> tst_memory_0 :: 1641202533:4213, 64 bit:4.2.1:x86_64-Linux:nepomuck:217920
+1 >> tst_memory_1 :: 1641202533:4213, 64 bit:4.2.1:x86_64-Linux:nepomuck:2273280
+1 >> tst_memory_2 :: 1641202533:4213, 64 bit:4.2.1:x86_64-Linux:nepomuck:2400256
+1 >> tst_timer_1 :: 1641202533:4213, 64 bit:4.2.1:x86_64-Linux:nepomuck:3
Index: Tst/Short/bug_633.res.gz.uu
===================================================================
--- Tst/Short/bug_633.res.gz.uu	(revision 0174985120b895aacfa8d871adb049e962dc303e)
+++ Tst/Short/bug_633.res.gz.uu	(revision a58a2020e02850b2395c30393941f74b1fadf65d)
@@ -1,14 +1,14 @@
-begin 644 bug_633.res.gz
-M'XL("$*=2V`"`V)U9U\V,S,N<F5S`,V4P6Z;0!"&[WZ*$>IAB1?"VI!06T91
-ME8LEJY?TABP+FZV[*5FCW<6`G[X#=H#(37.H*E5"8IC]-=_,KV6>OCTNOP(`
-MBV"U_`*6T<;-Q-::CYXN)Y,(,+D14AABST?-&Z((ML5^<S>=NI*7KC:)Z?33
-M"+K8=^&0&W&0I$R4M/NBP4!TYS9H8B79GF]5TN('TOL(A#20PP)RA5'&CSSK
-MC\,(,+L'A><>)0G=TIU-4]TK/E\4^JRH:$U/M*!'6J(N[W3,0U#*DPR6**R<
-MDA:3<LQH?7*.O0A]>DERR'\(%"FZ[$_0)Z'1IF>^,^+("4JHPCEN;^'F!D?8
-M*9YH?D$P<"*88A8&4\]F;PIX]@R[A^?X9;WPKNID0AMPVCK!51W\>.0YERF7
-MAOC,/U>"[#Y^J*HU=FY5Q!IKT_A",&6/+=OZ/2)H".%'A+`GR/%#7;>,>L"H
-MZS\PG-X.O$HR351ZIC0BPS=MB=:.5KZ:PRKVUXN4?\?LWSCCO_;=]A[^(W>"
-MR5O*_^20=UW2%'G&-^:`ST\N]>L]7,4"YVG]N;2LXUVA%`7)*^,TX?H=E->0
-MV,>DB1^R!O8^2HL3)]KN:*S[_09KA^':Z>+`;==7LZ(*39@]AT^C7S9FR%WU
+begin 640 bug_633.res.gz
+M'XL("&7#TF$"`V)U9U\V,S,N<F5S`,V4P6Z;0!"&[WZ*$>IAB1<"-B2N+:.H
+MRL62E8MS0Y:%S=;=E*S1[F+`3]]A[0"1F^905:J$Q#+S:[Z97\NLGA\73P#@
+M1[!<?`-+*^UF?&O-!JM+9A0!!C=<<$WLV:!Y0Q3!MMAO[L9C5[#253K1K7X<
+M07L.7#CDFA\$*1,I[*YHV!/=N0V:6$FV9UN9&'Q/>A\!%QIRF$,N\92Q(\NZ
+M]"0"C.Y!8MZC)*%;NK-IJCK%UXM"G145K>F)%O1(2]3EK<[W$)2R)(,%"BNG
+MI,6H'/JT/CG'3H0^O28YY#\XBB1==!GTB2NTZ87M-#\R@A(J<8[;6[BYP1%V
+MDB6*71`^.!&,,0J]J:?3=P4\>XK=PTO\NIY[5W4RKC0XIDYX50<_'EG.1,J$
+M)H$?G"M!=A\_5-4:.[<J8@V5;GPA&+*'EFW]'A$VA,EGA$E'$,.'NC:,NL>H
+MZS\PG,X.O$HB361ZIC0BS3:FA+'#R)<S6,;!>IZR[QC]&V>"M[Y-[Y-_Y$XX
+M>D_YGQSRKDOJ(L_81A_P^<F$>KN'RYCC/,:?2\LJWA524A"LTDYS7'^`\AJ2
+M_SEI%)XOTL<HQ4^,*+NE^>WOUUL[/JZ=]ARZ9GTU*ZI0Q+=G\&7P"UZ077?U
 #!```
 `
Index: Tst/Short/bug_633.stat
===================================================================
--- Tst/Short/bug_633.stat	(revision 0174985120b895aacfa8d871adb049e962dc303e)
+++ Tst/Short/bug_633.stat	(revision a58a2020e02850b2395c30393941f74b1fadf65d)
@@ -1,4 +1,4 @@
-1 >> tst_memory_0 :: 1615568194:4201, 64 bit:4.2.0:x86_64-Linux:terra:184888
-1 >> tst_memory_1 :: 1615568194:4201, 64 bit:4.2.0:x86_64-Linux:terra:2215936
-1 >> tst_memory_2 :: 1615568194:4201, 64 bit:4.2.0:x86_64-Linux:terra:2308376
-1 >> tst_timer_1 :: 1615568194:4201, 64 bit:4.2.0:x86_64-Linux:terra:4
+1 >> tst_memory_0 :: 1641202533:4213, 64 bit:4.2.1:x86_64-Linux:nepomuck:184856
+1 >> tst_memory_1 :: 1641202533:4213, 64 bit:4.2.1:x86_64-Linux:nepomuck:2215936
+1 >> tst_memory_2 :: 1641202533:4213, 64 bit:4.2.1:x86_64-Linux:nepomuck:2308344
+1 >> tst_timer_1 :: 1641202533:4213, 64 bit:4.2.1:x86_64-Linux:nepomuck:3
Index: Tst/Short/bug_tr774.res.gz.uu
===================================================================
--- Tst/Short/bug_tr774.res.gz.uu	(revision 0174985120b895aacfa8d871adb049e962dc303e)
+++ Tst/Short/bug_tr774.res.gz.uu	(revision a58a2020e02850b2395c30393941f74b1fadf65d)
@@ -1,4 +1,4 @@
 begin 640 bug_tr774.res.gz
-M'XL("$>RUUX"`V)U9U]T<C<W-"YR97,`[9;);MLP$(;O?HI!T(,$R+*X:'$,
+M'XL("%6^TF$"`V)U9U]T<C<W-"YR97,`[9;);MLP$(;O?HI!T(,$R+*X:'$,
 MJT#:BX&@%^=6)+$6VB&L4@)-)WG\#A,MAF&W"!#?<I(X'/ZS\`/)Y=W/Q2\`
 M("G<+F[@RNR,7\G\:C9:MC,T!30^2B6-X\Y&]@MI"OE^\VAT''-?B1=_9S+3
@@ -9,9 +9,9 @@
 M[X*55`)%KV'5JJ[Z2"%6VS;WD\.%&.Y0>HB).]/MXR?$1*Y4F>G2,GE]C04^
 MR2I_SX$E%)-`!9#S/A5I4WE3K43V;*DXK8"@6+?=5C:-]3+BU<!:UW]@Y:[:
-MC#(#IMX*94W_TNS*!8>0@+M])^*!49)TC-+_,DJFYQFEP3&CM(.Q7T_I!?BB
+MC#(#IMX*94W_TNS*!8<0%KE])^*!49)TC-+_,DJFYQFEP3&CM(.Q7T_I!?BB
 M]`1?E%V*+\K.\47Y%U]M)\*!+QIU?+%YX#DM6U4S0!$/4"%`#Q'WD*T'"]?@
 MDUP"G.04.-.+@3,]!PX+OL!I.T$&<!CMP.%G#B;OUJ$1)9R[PQ'%V/DCBO'C
 M(XJ%)Z]1%AU?HRP^?8VRY,0URJ8#K8^_R7V7"`[H/3)>DH@E=L3NY]FX?*^A
-I6\R#(P`_KD".</JX`AVV@>-#P3ZR[#-JOW.(.X-OL]%?W:(;I9P)````
+I6\R#(P`_KD".</JX`AVV@>-#P3ZR[#-JOW.(.X-OL]%?#'J#MYP)````
 `
 end
Index: Tst/Short/bug_tr774.stat
===================================================================
--- Tst/Short/bug_tr774.stat	(revision 0174985120b895aacfa8d871adb049e962dc303e)
+++ Tst/Short/bug_tr774.stat	(revision a58a2020e02850b2395c30393941f74b1fadf65d)
@@ -1,4 +1,4 @@
-1 >> tst_memory_0 :: 1591194183:4132, 64 bit:4.1.3:x86_64-Linux:nepomuck:111368
-1 >> tst_memory_1 :: 1591194183:4132, 64 bit:4.1.3:x86_64-Linux:nepomuck:2207744
-1 >> tst_memory_2 :: 1591194183:4132, 64 bit:4.1.3:x86_64-Linux:nepomuck:2268424
-1 >> tst_timer_1 :: 1591194183:4132, 64 bit:4.1.3:x86_64-Linux:nepomuck:5
+1 >> tst_memory_0 :: 1641201237:4213, 64 bit:4.2.1:x86_64-Linux:nepomuck:111328
+1 >> tst_memory_1 :: 1641201237:4213, 64 bit:4.2.1:x86_64-Linux:nepomuck:2207744
+1 >> tst_memory_2 :: 1641201237:4213, 64 bit:4.2.1:x86_64-Linux:nepomuck:2307160
+1 >> tst_timer_1 :: 1641201237:4213, 64 bit:4.2.1:x86_64-Linux:nepomuck:2
