diff --git a/ChangeLog b/ChangeLog
index 05bff6c81e..54621889fb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2007-03-17  Kevin Cozens  <kcozens@cvs.gnome.org>
+
+	* plug-ins/script-fu/scripts/script-fu-compat.init: Fixed syntax
+	error in string-trim-left function (spotted by Saul Goode). Added
+	compatability routine for 'verbose'.
+
 2007-03-17  Michael Natterer  <mitch@gimp.org>
 
 	* app/tools/gimpvectortool.c (gimp_vector_tool_register):
diff --git a/plug-ins/script-fu/scripts/script-fu-compat.init b/plug-ins/script-fu/scripts/script-fu-compat.init
index ff4441fb9e..9b69f8aa08 100644
--- a/plug-ins/script-fu/scripts/script-fu-compat.init
+++ b/plug-ins/script-fu/scripts/script-fu-compat.init
@@ -197,7 +197,7 @@
 
 (define (string-trim-left str)
   (let (
-       (strlen string-length str)
+       (strlen (string-length str))
        (i 0)
        )
 
@@ -359,3 +359,12 @@
 (define (trunc n)
   (inexact->exact (truncate n))
 )
+
+(define verbose
+  (lambda n
+    (if (or (null? n) (not (number? (car n))))
+      0
+      (car n)
+    )
+  )
+)