diff --git a/pkgs/scribble-pkgs/scribble-doc/scribblings/scribble/sigplan.scrbl b/pkgs/scribble-pkgs/scribble-doc/scribblings/scribble/sigplan.scrbl
index 7a928f07..38103505 100644
--- a/pkgs/scribble-pkgs/scribble-doc/scribblings/scribble/sigplan.scrbl
+++ b/pkgs/scribble-pkgs/scribble-doc/scribblings/scribble/sigplan.scrbl
@@ -103,6 +103,7 @@ e-mail address with the author name.}
 @defproc[(conferenceinfo [conference pre-content?] [location pre-content?]) block?]
 @defproc[(copyrightyear [content pre-content?] ...) block?]
 @defproc[(copyrightdata [content pre-content?] ...) block?]
+@defproc[(doi [content pre-content?] ...) block?]
 )]{
 
 Declares information that is collected into the copyright region of the paper.}
diff --git a/pkgs/scribble-pkgs/scribble-lib/scribble/sigplan.rkt b/pkgs/scribble-pkgs/scribble-lib/scribble/sigplan.rkt
index 56454a1f..e36d9548 100644
--- a/pkgs/scribble-pkgs/scribble-lib/scribble/sigplan.rkt
+++ b/pkgs/scribble-pkgs/scribble-lib/scribble/sigplan.rkt
@@ -27,6 +27,9 @@
  [copyrightdata
   (->* () () #:rest (listof pre-content?)
        block?)]
+ [doi
+  (->* () () #:rest (listof pre-content?)
+       block?)]
  [category
   (->* (pre-content? pre-content? pre-content?)
        ((or/c false/c pre-content?))
@@ -126,6 +129,13 @@
     (make-style "SCopyrightData" sigplan-extras)
     (decode-content what))))
 
+(define (doi . what)
+  (make-paragraph
+   (make-style 'pretitle null)
+   (make-element
+    (make-style "Sdoi" sigplan-extras)
+    (decode-content what))))
+
 ;; ----------------------------------------
 ;; Categories, terms, and keywords:
 
diff --git a/pkgs/scribble-pkgs/scribble-lib/scribble/sigplan/sigplan.css b/pkgs/scribble-pkgs/scribble-lib/scribble/sigplan/sigplan.css
index d9b43609..ad3ae176 100644
--- a/pkgs/scribble-pkgs/scribble-lib/scribble/sigplan/sigplan.css
+++ b/pkgs/scribble-pkgs/scribble-lib/scribble/sigplan/sigplan.css
@@ -1,7 +1,7 @@
 /* Support for styles in scribble/sigplan */
 
 .SAuthorPlace, .SAuthorEmail,
-.SConferenceInfo, .SCopyrightYear, .SCopyrightData,
+.SConferenceInfo, .SCopyrightYear, .SCopyrightData, .Sdoi,
 .SCategory, .SCategoryPlus, .STerms, .SKeywords {
   display: none;
 }
diff --git a/pkgs/scribble-pkgs/scribble-lib/scribble/sigplan/sigplan.tex b/pkgs/scribble-pkgs/scribble-lib/scribble/sigplan/sigplan.tex
index fd952882..69224601 100644
--- a/pkgs/scribble-pkgs/scribble-lib/scribble/sigplan/sigplan.tex
+++ b/pkgs/scribble-pkgs/scribble-lib/scribble/sigplan/sigplan.tex
@@ -11,6 +11,7 @@
 \newcommand{\SConferenceInfo}[2]{}
 \newcommand{\SCopyrightYear}[1]{}
 \newcommand{\SCopyrightData}[1]{}
+\newcommand{\Sdoi}[1]{}
 
 \newcommand{\SCategory}[3]{}
 \newcommand{\SCategoryPlus}[4]{}
diff --git a/pkgs/scribble-pkgs/scribble-lib/scribble/sigplan/style.tex b/pkgs/scribble-pkgs/scribble-lib/scribble/sigplan/style.tex
index ff82de40..070beace 100644
--- a/pkgs/scribble-pkgs/scribble-lib/scribble/sigplan/style.tex
+++ b/pkgs/scribble-pkgs/scribble-lib/scribble/sigplan/style.tex
@@ -29,7 +29,7 @@
 \renewcommand{\SConferenceInfo}[2]{\conferenceinfo{#1}{#2}}
 \renewcommand{\SCopyrightYear}[1]{\copyrightyear{#1}}
 \renewcommand{\SCopyrightData}[1]{\copyrightdata{#1}}
-
+\renewcommand{\Sdoi}[1]{\doi{#1}}
 
 \renewcommand{\SCategory}[3]{\category{#1}{#2}{#3}}
 \renewcommand{\SCategoryPlus}[4]{\category{#1}{#2}{#3}[#4]}