In boilerplate, use -l$0. Thanks to Daniel Skarda.

scripts/PROGRAM

@@ -1,7 +1,7 @@
 #!/bin/sh
 # aside from this initial boilerplate, this is actually -*- scheme -*- code
 main='(module-ref (resolve-module '\''(scripts PROGRAM)) '\'main')'
-exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
+exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
 !#
 ;;; PROGRAM --- Does something
 

scripts/README

@@ -65,7 +65,7 @@ Programs must follow the "executable module" convention, documented here:
 
   #!/bin/sh
   main='(module-ref (resolve-module '\''(scripts PROGRAM)) '\'main')'
-  exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
+  exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
   !#
 
 Following these conventions allows the program file to be used as module

scripts/display-commentary

@@ -1,7 +1,7 @@
 #!/bin/sh
 # aside from this initial boilerplate, this is actually -*- scheme -*- code
 main='(module-ref (resolve-module '\''(scripts display-commentary)) '\'main')'
-exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
+exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
 !#
 ;;; display-commentary --- As advertized
 

scripts/doc-snarf

@@ -1,7 +1,7 @@
 #!/bin/sh
 # aside from this initial boilerplate, this is actually -*- scheme -*- code
 main='(module-ref (resolve-module '\''(scripts doc-snarf)) '\'main')'
-exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
+exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
 !#
 ;;; doc-snarf --- Extract documentation from source files
 

scripts/generate-autoload

@@ -1,7 +1,7 @@
 #!/bin/sh
 # aside from this initial boilerplate, this is actually -*- scheme -*- code
 main='(module-ref (resolve-module '\''(scripts generate-autoload)) '\'main')'
-exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
+exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
 !#
 ;;; generate-autoload --- Display define-module form with autoload info
 

scripts/punify

@@ -1,7 +1,7 @@
 #!/bin/sh
 # aside from this initial boilerplate, this is actually -*- scheme -*- code
 main='(module-ref (resolve-module '\''(scripts punify)) '\'main')'
-exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
+exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
 !#
 ;;; punify --- Display Scheme code w/o unnecessary comments / whitespace
 

scripts/read-scheme-source

@@ -1,7 +1,7 @@
 #!/bin/sh
 # aside from this initial boilerplate, this is actually -*- scheme -*- code
 main='(module-ref (resolve-module '\''(scripts read-scheme-source)) '\'main')'
-exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
+exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
 !#
 ;;; read-scheme-source --- Read a file, recognizing scheme forms and comments
 

scripts/snarf-check-and-output-texi

@@ -1,7 +1,7 @@
 #!/bin/sh
 # aside from this initial boilerplate, this is actually -*- scheme -*- code
 main="(module-ref (resolve-module '(scripts snarf-check-and-output-texi)) 'main)"
-exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
+exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
 !#
 ;;; snarf-check-and-output-texi --- called by the doc snarfer.
 

scripts/use2dot

@@ -1,7 +1,7 @@
 #!/bin/sh
 # aside from this initial boilerplate, this is actually -*- scheme -*- code
 main='(module-ref (resolve-module '\''(scripts use2dot)) '\'main')'
-exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
+exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
 !#
 ;;; use2dot --- Display module dependencies as a DOT specification