better an not inserting blank lines

lisp/org-babel.el

@@ -529,7 +529,8 @@ silent -- no results are inserted"
           (progn
             (insert
              (concat (orgtbl-to-orgtbl
-                      (if (listp (cdr (car result))) result (list result))
+                      (if (and (listp (car result)) (listp (cdr (car result))))
+                          result (list result))
                       '(:fmt (lambda (cell) (format "%S" cell)))) "\n"))
             (forward-line -1)
             (org-cycle))))
@@ -555,12 +556,10 @@ relies on `org-babel-insert-result'."
       (let ((case-fold-search nil))
 	(if (looking-at "#\\+begin_example")
 	    (search-forward "#+end_example" nil t)
-	  (progn
-	    (while (if (looking-at "\\(: \\|\\[\\[\\)")
-		       (progn (while (looking-at "\\(: \\|\\[\\[\\)")
-				(forward-line 1)) t))
-	      (forward-line 1))
-	    (forward-line -1))))
+	  (while (if (looking-at "\\(: \\|\\[\\[\\)")
+                     (progn (while (looking-at "\\(: \\|\\[\\[\\)")
+                              (forward-line 1)) t))
+            (forward-line 1))))
       (point))))
 
 (defun org-babel-result-to-file (result)

org-babel.org

@@ -2916,6 +2916,7 @@ executing Ruby source code block
 apply: Searching for program: no such file or directory, irb
 
 ** TODO problem with newlines in output when :results value
+
 #+begin_src python :results value
 '\n'.join(map(str, range(4)))
 #+end_src
@@ -2923,6 +2924,7 @@ apply: Searching for program: no such file or directory, irb
 #+resname:
 : 0
 
+
 Whereas I was hoping for
 
 | 0 |
@@ -3028,7 +3030,7 @@ for example
 '((:results . "replace"))
 #+end_src
 
-#+resname: this-doesn't-match-orgtbl
+#+resname:
 | (:results . "replace") |
 
 #+srcname: this-probably-also-wont-work