diff --git a/test/fetch-test-packages.scm b/test/fetch-test-packages.scm
index fd4ff1f..290f93b 100755
--- a/test/fetch-test-packages.scm
+++ b/test/fetch-test-packages.scm
@@ -11,7 +11,15 @@ exec scsh -o thread-fluids -s "$0" "$@"
   '(("http://savannah.nongnu.org/download/sunterlib/" .
      "sunterlib-0.7.tar.gz")
     ("ftp://ftp.scsh.net/pub/scsh/packages/scx/" .
-     "scx-0.2.tar.gz")))
+     "scx-0.2.tar.gz")
+    ("ftp://ftp.scsh.net/pub/scsh/packages/scsh-expect/" .
+     "scsh-expect-0.1.tar.gz")
+    ("ftp://ftp.scsh.net/pub/scsh/packages/sunet/" .
+     "sunet-2.1.tar.gz")
+    ("ftp://ftp.scsh.net/pub/scsh/packages/scsh-yp/" .
+     "scsh-yp-0.2.tar.gz")
+    ("ftp://ftp.scsh.net/pub/scsh/packages/orion-wm/" .
+     "orion-0.2.tar.gz")))
 
 (define fetch-url
   (let ((path (thread-fluid exec-path-list)))