--- a/demo/more/conference1.ur	Mon Nov 02 14:22:29 2009 -0500
+++ b/demo/more/conference1.ur	Mon Nov 02 15:48:06 2009 -0500
@@ -3,14 +3,21 @@
 open Conference.Make(struct
                          val paper = {Title = title,
                                       Abstract = abstract}
+                         val paperPrivate = {Decision = Decision.decision}
                          val review = {Rating = dropdown "Rating" (#"A" :: #"B" :: #"C" :: #"D" :: []),
                                        CommentsForAuthors = commentsForAuthors}
 
                          val submissionDeadline = readError "2009-11-22 23:59:59"
 
-                         fun summarizePaper [ctx] [[Body] ~ ctx] r = cdata r.Title
+                         fun summarizePaper [ctx] [[Body] ~ ctx] r = txt r.Title
 
-                         functor Make (M : Conference.INPUT where con paper = [Title = string, Abstract = string]) = struct
-                             open Bid.Make(M)
+                         functor Make (M : Conference.INPUT where con paper = _) = struct
+                             open Conference.Join(struct
+                                                      structure O1 = Bid.Make(M)
+                                                      structure O2 = Decision.Make(struct
+                                                                                       con paperOther = _
+                                                                                       open M
+                                                                                   end)
+                                                  end)
                          end
                      end)