diff --git a/source/texk/web2c/luatexdir/ChangeLog b/source/texk/web2c/luatexdir/ChangeLog
index 86482ca20c9f390c10970a338ff83a452d6da452..8a0a4abc05147db03f3e382b2bd79c86ac322609 100644
--- a/source/texk/web2c/luatexdir/ChangeLog
+++ b/source/texk/web2c/luatexdir/ChangeLog
@@ -1,3 +1,6 @@
+2022-12-03  Luigi Scarso <luigi.scarso@gmail.com> 
+    * Make disc node prev. pointers more uniform (M.Krüger)
+
 2022-11-20  Luigi Scarso <luigi.scarso@gmail.com> 
     * set \variablefam = -1 as initial value (H.Hagen).
 
diff --git a/source/texk/web2c/luatexdir/lang/texlang.c b/source/texk/web2c/luatexdir/lang/texlang.c
index f8c60e548dedca8e6a89683737ea49c21c46ccaf..bc912de0bb128479a7f586661b5dce82a3047f26 100644
--- a/source/texk/web2c/luatexdir/lang/texlang.c
+++ b/source/texk/web2c/luatexdir/lang/texlang.c
@@ -472,12 +472,7 @@ static halfword compound_word_break(halfword t, int clang)
 void set_disc_field(halfword f, halfword t)
 {
     if (t != null) {
-        /*tex
-            No |couple_nodes(f, t);| as we can better not expose |f| as |prev|
-            pointer.
-        */
-        vlink(f) = t ;
-        alink(t) = null ;
+        couple_nodes(f, t);
         tlink(f) = tail_of_list(t);
     } else {
         vlink(f) = null;
diff --git a/source/texk/web2c/luatexdir/luatex_svnversion.h b/source/texk/web2c/luatexdir/luatex_svnversion.h
index 869b1271b63b4fb39ff32289587c235c543a8837..7cf200932632ef3d61138821864728197da0074a 100644
--- a/source/texk/web2c/luatexdir/luatex_svnversion.h
+++ b/source/texk/web2c/luatexdir/luatex_svnversion.h
@@ -1,4 +1,4 @@
 #ifndef luatex_svn_revision_h
 #define luatex_svn_revision_h
-#define luatex_svn_revision 7550
+#define luatex_svn_revision 7551
 #endif