diff --git a/C/agc.c b/C/agc.c
index 2b7ce011b..fe53c4342 100755
--- a/C/agc.c
+++ b/C/agc.c
@@ -170,6 +170,7 @@ AtomAdjust(Atom a)
 #define PtoPredAdjust(P) (P)
 #define PtoPtoPredAdjust(P) (P)
 #define OpRTableAdjust(P) (P)
+#define OpEntryAdjust(P) (P)
 #define PropAdjust(P) (P)
 #define TrailAddrAdjust(P) (P)
 #define XAdjust(P) (P)
diff --git a/C/stdpreds.c b/C/stdpreds.c
old mode 100644
new mode 100755
diff --git a/H/rheap.h b/H/rheap.h
index 977c809ea..1c4041c1a 100755
--- a/H/rheap.h
+++ b/H/rheap.h
@@ -1537,6 +1537,9 @@ RestoreEntries(PropEntry *pp, int int_key)
 	if (opp->OpModule) {
 	 opp->OpModule = AtomTermAdjust(opp->OpModule);
 	}
+	if (opp->OpNext) {
+	 opp->OpNext = OpEntryAdjust(opp->OpNext);
+	}
       }
       break;
     case ModProperty:
diff --git a/H/sshift.h b/H/sshift.h
old mode 100644
new mode 100755
index 7dab5c8ea..0b8fce287
--- a/H/sshift.h
+++ b/H/sshift.h
@@ -685,6 +685,14 @@ OpRTableAdjust (opentry * ptr)
   return (opentry *) (((opentry *) (CharP (ptr) + HDiff)));
 }
 
+inline EXTERN OpEntry *OpEntryAdjust (OpEntry *);
+
+inline EXTERN OpEntry *
+OpEntryAdjust (OpEntry * ptr)
+{
+  return (OpEntry *) (((OpEntry *) (CharP (ptr) + HDiff)));
+}
+
 inline EXTERN PredEntry *PtoPredAdjust (PredEntry *);
 
 inline EXTERN PredEntry *