[[project @ 2005-07-05 07:24:59 by unknown_lamer]
unknown_lamer**20050705072459
 Documentation updates, a small update to bobot-utils
] {
hunk ./ChangeLog 2
+
+	* scripts/bobot-utils.scm (_deprecated-fun): Set
+	current-error-port to bot:logport while calling
+	issue-deprecation-warning
hunk ./scripts/bobot-utils.scm 133
-	(issue-deprecation-warning
-	 (string-append
-	  (symbol->string ',old-name)
-	  " is a deprecated function. Please use "
-	  (symbol->string ',new-name) " instead."))
-	(apply ,new-name args))))
+	(let ((old-error
+	       (set-current-error-port (bot:logport))))
+	  (issue-deprecation-warning
+	   (string-append
+	    (symbol->string ',old-name)
+	    " is a deprecated function. Please use "
+	    (symbol->string ',new-name) " instead."))
+	  (bot:flushport)
+	  (set-current-error-port old-error))
+	  (apply ,new-name args))))
}