diff --git a/contrib/lisp/org-e-groff.el b/contrib/lisp/org-e-groff.el
index 3c3ad7a6a..f477837c6 100644
--- a/contrib/lisp/org-e-groff.el
+++ b/contrib/lisp/org-e-groff.el
@@ -1015,14 +1015,14 @@ holding contextual information."
       (let ((low-level-body
              (concat
               ;; If the headline is the first sibling, start a list.
-              (when (org-export-first-sibling-p headline)
+              (when (org-export-first-sibling-p headline info)
                 (format "%s\n" (if numberedp ".AL 1\n" ".DL \n")))
               ;; Itemize headline
               ".LI\n" full-text "\n" headline-label pre-blanks contents)))
         ;; If headline is not the last sibling simply return
         ;; LOW-LEVEL-BODY.  Otherwise, also close the list, before any
         ;; blank line.
-        (if (not (org-export-last-sibling-p headline)) low-level-body
+        (if (not (org-export-last-sibling-p headline info)) low-level-body
           (replace-regexp-in-string
            "[ \t\n]*\\'"
            (concat "\n.LE" )
@@ -1929,7 +1929,7 @@ a communication channel."
                         (match-string 1 contents)
                         (match-string 2 contents))
               contents )
-            (when (org-export-get-next-element table-cell) "\t"))
+            (when (org-export-get-next-element table-cell info) "\t"))
     )
 )
 
diff --git a/contrib/lisp/org-e-man.el b/contrib/lisp/org-e-man.el
index 11c10068c..f46ccf3d2 100644
--- a/contrib/lisp/org-e-man.el
+++ b/contrib/lisp/org-e-man.el
@@ -137,7 +137,6 @@ structure of the values.")
   :type 'boolean)
 
 
-
 (defcustom org-e-man-table-scientific-notation "%sE%s"
   "Format string to display numbers in scientific notation.
 The format should have \"%s\" twice, for mantissa and exponent
@@ -489,9 +488,8 @@ information."
   (org-e-man--wrap-label
    example-block
    (format ".RS\n.nf\n%s\n.fi\n.RE"
-           (org-export-format-code-default example-block info))))
-
-
+           (org-export-format-code-default example-block info))
+))
 ;;;; Export Block
 
 (defun org-e-man-export-block (export-block contents info)
@@ -560,7 +558,7 @@ holding contextual information."
       (let ((low-level-body
 			 (concat
 			  ;; If the headline is the first sibling, start a list.
-			  (when (org-export-first-sibling-p headline)
+			  (when (org-export-first-sibling-p headline info)
 				(format "%s\n" ".RS"))
 			  ;; Itemize headline
 			  ".TP\n.ft I\n" text "\n.ft\n" 
@@ -568,7 +566,7 @@ holding contextual information."
 		;; If headline is not the last sibling simply return
 		;; LOW-LEVEL-BODY.  Otherwise, also close the list, before any
 		;; blank line.
-		(if (not (org-export-last-sibling-p headline)) low-level-body
+		(if (not (org-export-last-sibling-p headline info)) low-level-body
 		  (replace-regexp-in-string
 		   "[ \t\n]*\\'" ""
 		   low-level-body))))
@@ -770,14 +768,14 @@ INFO is a plist holding contextual information.  See
                 (t raw-path)))
          protocol)
     (cond
-     ;; Coderef: replace link with the reference name or the
-     ;; equivalent line number.
      ;; External link with a description part.
      ((and path desc) (format "%s \\fBat\\fP \\fI%s\\fP" path desc))
      ;; External link without a description part.
      (path (format "\\fI%s\\fP" path))
      ;; No path, only description.  Try to do something useful.
-     (t (format "\\fI%s\\fP" desc)))))
+     (t (format "\\fI%s\\fP" desc))
+     )
+    ))
 
 
 ;;;; Macro
@@ -1221,7 +1219,7 @@ a communication channel."
                       (match-string 1 contents)
                       (match-string 2 contents))
             contents)
-          (when (org-export-get-next-element table-cell) " \t ")))
+          (when (org-export-get-next-element table-cell info) " \t ")))
 
 
 ;;;; Table Row