diff --git a/.gitreview b/.gitreview
new file mode 100644
index 0000000..d01bbc2
--- /dev/null
+++ b/.gitreview
@@ -0,0 +1,4 @@
+[gerrit]
+host=review.openstack.org
+port=29418
+project=stackforge/cl-openstack-client.git
diff --git a/run-tests.lisp b/run-tests.lisp
index 609af4b..5289063 100644
--- a/run-tests.lisp
+++ b/run-tests.lisp
@@ -1,4 +1,13 @@
+(defun terminate (status)
+  #+sbcl     (sb-ext:quit      :unix-status status)    ; SBCL
+  #+ccl      (   ccl:quit      status)                 ; Clozure CL
+  #+clisp    (   ext:quit      status)                 ; GNU CLISP
+  #+cmu      (  unix:unix-exit status)                 ; CMUCL
+  #+abcl     (   ext:quit      :status status)         ; Armed Bear CL
+  #+allegro  (  excl:exit      status :quiet t)        ; Allegro CL
+  (cl-user::quit))           ; Many implementations put QUIT in the sandbox CL-USER package.
+
 (require 'cl-openstack-client-test)
 (let ((results (5am:run 5am::*suite*)))
   (5am:explain! results)
-  (exit :code (if (eq (5am:results-status results ) t) 0 1)))
+  (terminate (if (eq (5am:results-status results ) t) 0 1)))