diff --git a/.github/workflows/main-wasm.yml b/.github/workflows/main-wasm.yml
index b2d6aa87..0b0ef86e 100644
--- a/.github/workflows/main-wasm.yml
+++ b/.github/workflows/main-wasm.yml
@@ -107,12 +107,16 @@ jobs:
       - name: Display example outputs
         run: |
           shopt -s nullglob
-          for f in npm/examples/output/*; do
-            name=$(basename "$f")
-            case "$f" in
-              *.gds) echo "===== $name (binary, $(wc -c < "$f") bytes — skipped) =====" ;;
-              *)     echo "===== $name ====="; cat "$f" ;;
-            esac
+          for dir in npm/examples/output npm/examples/output-tcl; do
+            [ -d "$dir" ] || continue
+            echo "======== $dir ========"
+            for f in "$dir"/*; do
+              name=$(basename "$f")
+              case "$f" in
+                *.gds) echo "===== $name (binary, $(wc -c < "$f") bytes — skipped) =====" ;;
+                *)     echo "===== $name ====="; cat "$f" ;;
+              esac
+            done
           done
 
       # The release gate. We publish a new npm version only when a tag of the
diff --git a/tcltk/tclmagic.c b/tcltk/tclmagic.c
index aeb097bc..710319ff 100644
--- a/tcltk/tclmagic.c
+++ b/tcltk/tclmagic.c
@@ -680,7 +680,7 @@ TclmagicRegisterCommands(Tcl_Interp *interp)
 	commandTable = WindGetCommandTable(client);
 	for (n = 0; commandTable[n] != NULL; n++)
 	{
-	    sscanf(commandTable[n], "%s ", kwptr);
+	    sscanf(commandTable[n], "%92s", kwptr);
 	    Tcl_CreateCommand(interp, keyword, (Tcl_CmdProc *)_tcl_dispatch,
 			(ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);
 	}