Index: gl-helper.fs
==================================================================
--- gl-helper.fs
+++ gl-helper.fs
@@ -158,11 +158,11 @@
 ?looper \ init-opengl ." Screen size: " dpy-w ? dpy-h ? cr
 
 \ gl shader program
 
 : .glsl-error ( shader -- )
-    $1000 pad pad cell+ glGetShaderInfoLog pad cell+ pad @ #lf skip
+    $1000 pad pad cell+ glGetShaderInfoLog pad cell+ pad l@ #lf skip
     BEGIN  #lf $split dup  WHILE  2swap cr type  REPEAT  2drop
     dup IF  cr type  ELSE  2drop  THEN ;
 
 : compile-shader ( source shadertype -- shader )
     \ ." Compile shader:" cr over @ cstring>sstring type

Index: gl-slideshow.fs
==================================================================
--- gl-slideshow.fs
+++ gl-slideshow.fs
@@ -266,5 +266,7 @@
     slidelist $[]slurp-file current-slide off rethumb ;
 
 previous previous
 
 \ s" slide.lst" slide-show
+
+win 0= [IF] window-init [THEN]

Index: gles2/gl-helper.fs
==================================================================
--- gles2/gl-helper.fs
+++ gles2/gl-helper.fs
@@ -158,11 +158,11 @@
 ?looper \ init-opengl ." Screen size: " dpy-w ? dpy-h ? cr
 
 \ gl shader program
 
 : .glsl-error ( shader -- )
-    $1000 pad pad cell+ glGetShaderInfoLog pad cell+ pad @ #lf skip
+    $1000 pad pad cell+ glGetShaderInfoLog pad cell+ pad l@ #lf skip
     BEGIN  #lf $split dup  WHILE  2swap cr type  REPEAT  2drop
     dup IF  cr type  ELSE  2drop  THEN ;
 
 : compile-shader ( source shadertype -- shader )
     \ ." Compile shader:" cr over @ cstring>sstring type

Index: gles2/gl-slideshow.fs
==================================================================
--- gles2/gl-slideshow.fs
+++ gles2/gl-slideshow.fs
@@ -266,5 +266,7 @@
     slidelist $[]slurp-file current-slide off rethumb ;
 
 previous previous
 
 \ s" slide.lst" slide-show
+
+win 0= [IF] window-init [THEN]