diff --git a/scheme/basic-functions.scm b/scheme/basic-functions.scm
index 27f3c7c..9b8a8d4 100644
--- a/scheme/basic-functions.scm
+++ b/scheme/basic-functions.scm
@@ -2,3 +2,6 @@
 							 (begin
 							   (create-path from-path-description from-area to-area arealist)
 							   (create-path to-path-description to-area from-area arealist)))
+
+(define (shout message outputqueue)
+  (message-everyone "SERVER" message outputqueue))