From d1885214ce61ec4edc02fab1c1dac3213e35dc8b Mon Sep 17 00:00:00 2001
From: Warren Toomey <wkt@tuhs.org>
Date: Sun, 20 Mar 2016 09:26:55 +1000
Subject: [PATCH] Fixed a bug when we had to skip a direntry with a zero i-num.

---
 src/other/wktls.s | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/other/wktls.s b/src/other/wktls.s
index e21242d..a99a4c3 100644
--- a/src/other/wktls.s
+++ b/src/other/wktls.s
@@ -162,10 +162,12 @@ printname:
 
    lac bufptr		" Add 7 to the bufptr
    tad d7
-   skp
+   jmp nextentry
 
 skipentry:
+   lac bufptr		" Add 8 to the bufptr if we skipped this entry entirely
    tad d8		" Or add 8 if we skipped this entry entirely
+nextentry:
    dac bufptr
    -8
    tad count		" Decrement the count of words by 8