[O] babel bugs??

[Thomas Alexander Gerds]

Dear Babel developers

I may have found two bugs (org-mode: 7.8.03
release_7.8.03.330.gc804.dirty), emacs: 23.2.1):

1. when I have case-fold-search set to nil, I get problems with the
begin/end src notation:

,---- lower case works as expected
| 
| #+begin_src emacs-lisp :results list
|   (mapcar '(lambda (x)
|              (concat "[["(replace-in-string x (getenv "HOME") "~") "]["
|                      (file-name-nondirectory x) "]]"))
|           (directory-files (file-name-directory (buffer-file-name)) t 
"^[a-z]*\.[a-z]+"))
| #+end_src
| 
| #+RESULTS:
| - [[~/tmp/test/anotherTest.org][anotherTest.org]]
| - [[~/tmp/test/tmp.org][tmp.org]]
| 
`----

,---- in upper case org cannot find the head of the source blok
| 
| #+BEGIN_SRC  emacs-lisp :results list
| - [[~/tmp/test/anotherTest.org][anotherTest.org]]
| - [[~/tmp/test/tmp.org][tmp.org]]
| 
|   (mapcar '(lambda (x)
|              (concat "[["(replace-in-string x (getenv "HOME") "~") "]["
|                      (file-name-nondirectory x) "]]"))
|           (directory-files (file-name-directory (buffer-file-name)) t 
"^[a-z]*\.[a-z]+"))
| #+END_SRC
`----

Inside the second block (org-babel-where-is-src-block-head) evaluates to
nil

2. posted to the list before, but never got an answer:
,----
| -------------org.snip-----------------------
| * here it works: org-ctrl-c-ctrl-c and export
| 
| #+begin_src R :results output :exports results
|   foo=matrix(1:2)
|   foo
| #+end_src
| 
| #+RESULTS:
| :      [,1]
| : [1,]    1
| : [2,]    2
| 
| * here it does not work: 
| 
| #+begin_src R :results output :exports results :session *R*
|   foo=matrix(3:8)
|   foo
| #+end_src
| 
| the buffer *R* shows this:
| 
| > 'org_babel_R_eoe'
| [1] "org_babel_R_eoe"
| ----------------org.snap------------------
| 
| some debugging revealed this:
| 
| ELISP> (org-babel-R-evaluate-session "*R*" "foo=matrix(1:2)\nfoo"
| output '("output" "replace") nil nil)
| *** Eval error ***  
| ELISP> (org-babel-R-evaluate-external-process "foo=matrix(1:2)\nfoo"
| output '("output" "replace") nil nil)
| "     [,1]\n[1,]    1\n[2,]    2\n"
`----

would you rather have bug reports?

cheers 
Tomy