diff --git a/collects/scriblib/autobib.ss b/collects/scriblib/autobib.ss
index 833c526a2c..a2fed0ba08 100644
--- a/collects/scriblib/autobib.ss
+++ b/collects/scriblib/autobib.ss
@@ -7,7 +7,8 @@
 (provide autobib-style-extras
          define-cite
          make-bib in-bib (rename-out [auto-bib? bib?])
-         proceedings-location journal-location book-location techrpt-location
+         proceedings-location journal-location book-location 
+         techrpt-location dissertation-location
          author-name org-author-name authors editor)
 
 (define (autobib-style-extras)
@@ -217,6 +218,11 @@
          #:number num)
   @elem{@|org|, @|num|})
 
+(define (dissertation-location
+         #:institution org
+         #:degree [degree "PhD"])
+  @elem{@|degree| dissertation, @|org|})
+
 ;; ----------------------------------------
 
 (define (author-name first last #:suffix [suffix #f])
diff --git a/collects/scriblib/scribblings/autobib.scrbl b/collects/scriblib/scribblings/autobib.scrbl
index ad25166903..f74bbdccdd 100644
--- a/collects/scriblib/scribblings/autobib.scrbl
+++ b/collects/scriblib/scribblings/autobib.scrbl
@@ -108,6 +108,13 @@ describing a book's location.}
 Combines elements to generate an element that is suitable for
 describing a technical report's location.}
 
+@defproc[(dissertation-location [#:institution institution edition any/c]
+                                [#:number degree any/c "PhD"])
+         element?]{
+
+Combines elements to generate an element that is suitable for
+describing a dissertation.}
+
 
 @defproc[(author-name [first any/c]
                       [last any/c]