Index: session.scm
==================================================================
--- session.scm
+++ session.scm
@@ -28,10 +28,11 @@
 ;; make-vector-record session session dbtype dbinit conn params path-params session-key session-id domain toppage page curr-page content-type page-type sroot twikidir pagedat alt-page-dat pagevars pagevars-before sessionvars sessionvars-before globalvars globalvars-before logpt formdat request-method session-cookie curr-err log-port logfile seen-pages page-dir-style debugmode
 (define (make-sdat)(make-vector 33))
 (define (sdat-get-dbtype               vec)    (vector-ref  vec 0))
 (define (sdat-get-dbinit               vec)    (vector-ref  vec 1))
 (define (sdat-get-conn                 vec)    (vector-ref  vec 2))
+(define (sdat-get-pgconn               vec)    (vector-ref (vector-ref vec 2) 1))
 (define (sdat-get-params               vec)    (vector-ref  vec 3))
 (define (sdat-get-path-params          vec)    (vector-ref  vec 4))
 (define (sdat-get-session-key          vec)    (vector-ref  vec 5))
 (define (sdat-get-session-id           vec)    (vector-ref  vec 6))
 (define (sdat-get-domain               vec)    (vector-ref  vec 7))