diff --git a/s4-migrate.sh b/s4-migrate.sh
index 72a41fd..6a64049 100755
--- a/s4-migrate.sh
+++ b/s4-migrate.sh
@@ -6,7 +6,7 @@
 dst=`unset DB; [ -f $2 ] && . ./$2 && echo "${DB:-db/cgi.sq3}|$URL"`
 dstdb=${dst%\|*}
 dsturl=${dst##*\|}
-type htmlescape >/dev/null 2>&1 || . `dirname $1`/s4-funcs.sh
+type htmlescape >/dev/null 2>&1 || DB=$srcdb . `dirname $1`/s4-funcs.sh
 case "$2" in
   s4-config.sh) world=Base ;;
   *)		world=${2##*-config-}; world=${world%.*} ;;